home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 August / CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso / disc2 / programr / vbasic / health.exe / MDIMFORM.FRM < prev    next >
Text File  |  1993-07-23  |  6KB  |  180 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIMForm 
  3.    Caption         =   "MULTIPLE DOCUMENT FORM"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   945
  6.    ClientTop       =   2220
  7.    ClientWidth     =   7365
  8.    Height          =   4710
  9.    Left            =   885
  10.    LinkTopic       =   "MDIForm2"
  11.    Top             =   1590
  12.    Width           =   7485
  13.    Begin Menu BACK 
  14.       Caption         =   "BACK"
  15.    End
  16.    Begin Menu DisposeRoute 
  17.       Caption         =   "EXIT"
  18.    End
  19.    Begin Menu Arrange 
  20.       Caption         =   "ARRANGE"
  21.    End
  22.    Begin Menu Forward 
  23.       Caption         =   "NEXT"
  24.    End
  25. End
  26. Sub ARRANGE_Click ()
  27. MDIMForm.Arrange 0
  28. End Sub
  29.  
  30. Sub BACK_Click ()
  31. If smartform(6) Then
  32.         assess3.Show
  33.         MDIMForm.Hide
  34.  
  35. Else
  36. formcheck "Multiple Document"
  37. End If
  38. End Sub
  39.  
  40. Sub DISPOSEROUTE_Click ()
  41. If smartform(6) Then
  42.  
  43. menumode MDIMForm
  44. Else
  45. formcheck "Multiple Document"
  46. End If
  47. End Sub
  48.  
  49. Sub FORWARD_Click ()
  50. If smartform(6) Then
  51.  
  52. summary.Show
  53. MDIMForm.Hide
  54. Else
  55. formcheck "Multiple Document"
  56. End If
  57. End Sub
  58.  
  59. Sub MDIForm_Load ()
  60. MDIMForm.Move 0, 0, screen.Width, screen.Height
  61.  
  62. Load MDIChild1C
  63. Load MDIChild1B
  64. Load MDIChild1A
  65. MDIChild1C.Move 0, 0, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  66. MDIChild1B.Move 0, 360, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  67. MDIChild1A.Move 0, 720, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  68. MDIChild1C.Show
  69. MDIChild1B.Show
  70. MDIChild1A.Show
  71.  
  72. MDIChild1C.List3(0).AddItem "AGE"
  73. MDIChild1C.List3(0).AddItem "HEIGHT"
  74. MDIChild1C.List3(0).AddItem "WEIGHT"
  75. MDIChild1C.List3(0).AddItem "TEMP"
  76. MDIChild1C.List3(0).AddItem "PULSE"
  77. MDIChild1C.List3(0).AddItem "RESPIRATIONS"
  78. MDIChild1C.List3(0).AddItem "BLOOD PRESSURE"
  79. MDIChild1C.List3(0).AddItem "GENERAL HEALTH:"
  80. MDIChild1C.List3(0).AddItem "USE OF TOBACCO"
  81. MDIChild1C.List3(0).AddItem "USE OF ALCOHOL"
  82. MDIChild1C.List3(0).AddItem "USE OF OTHER DRUGS"
  83. MDIChild1C.List3(0).AddItem "ORAL MUCOSA:"
  84. MDIChild1C.List3(0).AddItem "HEALTHY"
  85. MDIChild1C.List3(0).AddItem "MOIST"
  86. MDIChild1C.List3(0).AddItem "SKIN:"
  87. MDIChild1C.List3(0).AddItem "LESIONS"
  88. MDIChild1C.List3(0).AddItem "NOURISHMENT:"
  89. MDIChild1C.List3(0).AddItem "WELL-NOURISHED"
  90. MDIChild1C.List3(0).AddItem "OBESE"
  91. MDIChild1C.List3(0).AddItem "EMACIATED"
  92. MDIChild1C.List3(0).AddItem "SKIN:"
  93. MDIChild1C.List3(0).AddItem "SKIN NORMAL"
  94. MDIChild1C.List3(0).AddItem "HEALING PROBLEMS"
  95. MDIChild1C.List3(0).AddItem "CHANGES IN PIGMENTATION"
  96. MDIChild1C.List3(0).AddItem "TEETH:"
  97. MDIChild1C.List3(0).AddItem "NO PROBLEM CONDITION"
  98. MDIChild1C.List3(0).AddItem "DENTURES"
  99. MDIChild1C.List3(0).AddItem "CARIES"
  100. MDIChild1C.List3(0).AddItem "BROKEN TEETH"
  101. MDIChild1C.List3(0).AddItem "MISSING TEETH"
  102. '**********************************************
  103. MDIChild1B.List2(0).AddItem "BREATH SOUNDS"
  104. MDIChild1B.List2(0).AddItem "LIP COLOR"
  105. MDIChild1B.List2(0).AddItem "USE OF ACCESSORY MUSCLES"
  106. MDIChild1B.List2(0).AddItem "COUGH:"
  107. MDIChild1B.List2(0).AddItem "NON-PRODUCTIVE"
  108. MDIChild1B.List2(0).AddItem "PRODUCTIVE SPUTUM COLOR"
  109. MDIChild1B.List2(0).AddItem "APICAL RATE"
  110. MDIChild1B.List2(0).AddItem "RHYTHM:"
  111. MDIChild1B.List2(0).AddItem "REGULAR"
  112. MDIChild1B.List2(0).AddItem "IRREGULAR"
  113. MDIChild1B.List2(0).AddItem "ABNORMAL HEART SOUNDS NOTED"
  114. MDIChild1B.List2(0).AddItem "NECK VEIN DISTENSION AT 45 DEGREES:"
  115. MDIChild1B.List2(0).AddItem "PRESENT"
  116. MDIChild1B.List2(0).AddItem "ABSENT"
  117. MDIChild1B.List2(0).AddItem "EDEMA       LOCATION"
  118. MDIChild1B.List2(0).AddItem "RIGHT DORSALIS PEDAL PULSE:"
  119. MDIChild1B.List2(0).AddItem "STRONG"
  120. MDIChild1B.List2(0).AddItem "WEAK"
  121. MDIChild1B.List2(0).AddItem "ABSENT"
  122. MDIChild1B.List2(0).AddItem "LEFT DORSAL PEDAL PULSE"
  123. MDIChild1B.List2(0).AddItem "STRONG"
  124. MDIChild1B.List2(0).AddItem "WEAK"
  125. MDIChild1B.List2(0).AddItem "ABSENT"
  126. MDIChild1B.List2(0).AddItem "CALF TENDERNESS"
  127. MDIChild1B.List2(0).AddItem "NO"
  128. MDIChild1B.List2(0).AddItem "YES"
  129. MDIChild1B.List2(0).AddItem "EXTREMITIES   COLOR"
  130. MDIChild1B.List2(0).AddItem "              TEMP"
  131. MDIChild1B.List2(0).AddItem "BREAST SOUNDS"
  132. '**********************************************************
  133. MDIChild1A.List1(0).AddItem "HEARING"
  134. MDIChild1A.List1(0).AddItem "NORMAL LEFT"
  135. MDIChild1A.List1(0).AddItem "NORMAL RIGHT"
  136. MDIChild1A.List1(0).AddItem "IMPAIRED LEFT"
  137. MDIChild1A.List1(0).AddItem "IMPAIRED RIGHT"
  138. MDIChild1A.List1(0).AddItem "USES AID"
  139. MDIChild1A.List1(0).AddItem "VISION"
  140. MDIChild1A.List1(0).AddItem "NORMAL"
  141. MDIChild1A.List1(0).AddItem "IMPAIRED"
  142. MDIChild1A.List1(0).AddItem "GLASSES"
  143. MDIChild1A.List1(0).AddItem "PROSTHESES"
  144. MDIChild1A.List1(0).AddItem "FARSIGHTED"
  145. MDIChild1A.List1(0).AddItem "NEARSIGHTED"
  146. MDIChild1A.List1(0).AddItem "OTHER PROBLEMS"
  147. MDIChild1A.List1(0).AddItem "COMMUNICATION:"
  148. MDIChild1A.List1(0).AddItem "LANGUAGE SPOKEN:"
  149. MDIChild1A.List1(0).AddItem "UNDERSTANDS ENGLISH:"
  150. MDIChild1A.List1(0).AddItem "YES"
  151. MDIChild1A.List1(0).AddItem "NO"
  152. MDIChild1A.List1(0).AddItem "ABLE TO:"
  153. MDIChild1A.List1(0).AddItem "READ"
  154. MDIChild1A.List1(0).AddItem "WRITE"
  155. MDIChild1A.List1(0).AddItem "LIP READ"
  156. MDIChild1A.List1(0).AddItem "COGNITION:"
  157. MDIChild1A.List1(0).AddItem "NO PROBLEMS"
  158. MDIChild1A.List1(0).AddItem "RECENT MEMORY CHANGE"
  159. MDIChild1A.List1(0).AddItem "DIFFICULTY LEARNING"
  160. MDIChild1A.List1(0).AddItem "DISCOMFORT / PAIN"
  161. MDIChild1A.List1(0).AddItem "NO"
  162. MDIChild1A.List1(0).AddItem "YES  "
  163. MDIChild1A.List1(0).AddItem " DESCRIBE (LOCATION-INTENSITY-DURATION)  "
  164. MDIChild1A.List1(0).AddItem "EDUCATION - NEEDS REASON FOR ADMISSION"
  165. '***************************************************************
  166. MDIChild1A.List1(0).AddItem "HEARING"
  167. MDIChild1A.List1(0).AddItem "HEARING"
  168. MDIChild1A.List1(0).AddItem "HEARING"
  169.  
  170. MDIChild1C.Move 0, 0
  171. MDIChild1B.Move 0, 360
  172. MDIChild1A.Move 0, 720
  173.  
  174. MDIChild1A.HEdit1A.Move MDIChild1A.BEdit1A.Left, MDIChild1A.BEdit1A.Top, MDIChild1A.BEdit1A.Width, MDIChild1A.BEdit1A.Height
  175. MDIChild1B.HEdit1B.Move MDIChild1B.BEdit1B.Left, MDIChild1B.BEdit1B.Top, MDIChild1B.BEdit1B.Width, MDIChild1B.BEdit1B.Height
  176. MDIChild1C.HEdit1C.Move MDIChild1C.BEdit1C.Left, MDIChild1C.BEdit1C.Top, MDIChild1C.BEdit1C.Width, MDIChild1C.BEdit1C.Height
  177.  
  178. End Sub
  179.  
  180.